` ----------------------------------------------------
` User name (OS): Phil
` Date and time: 01/18/10, 08:41:56
` ----------------------------------------------------
` Method: FRDocument2Text
` Description
` 
`
` Parameters
` ----------------------------------------------------

`$1=Filename of document
`$2=->Text variable to receive Footrunner raw text
C_TEXT($1;$ttText)
C_POINTER($2)
$0:=0
$rDoc:=Open document($1)
If (OK=1)
RECEIVE PACKET($rDoc;$ttText;MAXTEXTLENBEFOREV11 )
$0:=FRRemoveChecksum ($ttText)
If ($0=0)
$2->:=$ttText
End if 
Else 
$0:=-43
End if 

